Imagine the Universe (9th Edition)/Imagine the Universe 9 - Disc 1.iso/pc/imagine/docs/science/try_l2/javascript/black_holes.js

Text File | 2000-05-31 | 637 b | 27 lines

function checkme() {
size1 = document.black_holes.answer2a.value - 0;
if (!size1) {size1 = "Blank";}
size2 = document.black_holes.answer2b.value - 0;
if (!size2) {size2 = "Blank";}
size3 = document.black_holes.answer3.value - 0;
if (!size3) {size3 = "Blank";}

RightOnFile = 'black_holes_correct.html';
TryAgainFile = 'black_holes_retry.html';

var weight1 = 7.7;
var weight2 = 1.9;
var weightexp = 27;
var Rlow = 295000;
var Rhi = 297000;

if (((size1 <= weight1) && (size1 >= weight2)) &&
    (size2 == weightexp) &&
    ((size3 >= Rlow) && (size3 <= Rhi))) {
    location = RightOnFile;
}
else {
    location = TryAgainFile;
}
}